home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / utility / utilfile / rw2ent15.lha / CWISENV next >
AmigaDOS Script File  |  1996-07-18  |  663b  |  39 lines
  1. .KEY FILENAME/A,MODE,KAT/A,P1,P2
  2. .BRA {
  3. .KET }
  4.  
  5. ; CWISENV by Tamio Patrick Honma
  6.  
  7. cd ENV:CWIS/{KAT}/
  8. IF {P1} NOT EQ ""
  9.   cd >NIL: {P1}
  10. ENDIF
  11. IF {P2} NOT EQ ""
  12.   cd >NIL: {P2}
  13. ENDIF
  14. assign ENVDir: ""
  15.  
  16. cd ENVARC:CWIS/{KAT}/
  17. IF {P1} NOT EQ ""
  18.   cd >NIL: {P1}
  19. ENDIF
  20. IF {P2} NOT EQ ""
  21.   cd >NIL: {P2}
  22. ENDIF
  23. assign ENVARCDir: ""
  24.  
  25. IF {MODE} EQ "ENT"
  26.   delete ENVDir:{FILENAME} ENVARCDir:{FILENAME}
  27. ELSE
  28.   IF {P2} NOT EQ ""
  29.     setenv CWIS/{KAT}/{P1}/{P2}/{FILENAME} {MODE}
  30.   ELSE
  31.     IF {P1} NOT EQ ""
  32.       setenv CWIS/{KAT}/{P1}/{FILENAME} {MODE}
  33.     ELSE
  34.       setenv CWIS/{KAT}/{FILENAME} {MODE}
  35.     ENDIF
  36.   ENDIF
  37.   copy ENVDir:{FILENAME} ENVARCDir:{FILENAME}
  38. ENDIF
  39.